VERSION 5.00
Begin VB.Form frmBonosXEmpresa 
   BackColor       =   &H80000009&
   Caption         =   "Bonos por empresa"
   ClientHeight    =   3090
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3090
   ScaleWidth      =   4680
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton CmdCancelar 
      BackColor       =   &H80000009&
      Caption         =   "Cancelar"
      Height          =   855
      Left            =   2640
      Picture         =   "frmBonosXEmpresa.frx":0000
      Style           =   1  'Graphical
      TabIndex        =   3
      Top             =   2040
      Width           =   1215
   End
   Begin VB.CommandButton CmdImprimir 
      BackColor       =   &H80000009&
      Caption         =   "Imprimir"
      Height          =   855
      Left            =   720
      Picture         =   "frmBonosXEmpresa.frx":058A
      Style           =   1  'Graphical
      TabIndex        =   2
      Top             =   2040
      Width           =   1215
   End
   Begin VB.OptionButton OptINDELPA 
      BackColor       =   &H80000009&
      Caption         =   "INDELPA"
      Height          =   375
      Left            =   840
      TabIndex        =   1
      Top             =   1320
      Width           =   2535
   End
   Begin VB.OptionButton OptREVYA 
      BackColor       =   &H80000009&
      Caption         =   "REVYA"
      Height          =   375
      Left            =   840
      TabIndex        =   0
      Top             =   600
      Width           =   2535
   End
End
Attribute VB_Name = "frmBonosXEmpresa"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub CmdCancelar_Click()
   Unload Me
End Sub

Private Sub cmdImprimir_Click()
   RutaReportes = DE.rsGENCParametros.Fields("RUTA_REPORTES")
   DE.ParametrosPlanillaActual
   MDI.reporte.StoredProcParam(0) = DE.rsParametrosPlanillaActual.Fields("Fecha_Planilla")
   MDI.reporte.StoredProcParam(1) = "002"
   If Me.OptREVYA Then
      Imprimir RutaReportes & "DetalleBonosXEmpresa1.rpt", "", "", "", ""
   End If
   If Me.OptINDELPA Then
      Imprimir RutaReportes & "DetalleBonosXEmpresa2.rpt", "", "", "", ""
   End If
   DE.rsParametrosPlanillaActual.Close
End Sub
